home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / util / gnu / emacs_src_18_58.lha / emacs-18.58 / lisp / term / intuition-win.el < prev    next >
Lisp/Scheme  |  1992-05-24  |  2KB  |  48 lines
  1. (load "s:.emacs-menu" t t)
  2. (setq command-switch-alist (append '(("-fn" . amiga-handle-set-font)
  3.                      ("-fg" . amiga-handle-set-foreground)
  4.                      ("-bg" . amiga-handle-set-background)
  5.                      ("-geometry" . amiga-handle-set-geometry)
  6.                      ("-screen" . amiga-handle-set-screen))
  7.                    command-switch-alist))
  8.  
  9. (defun amiga-handle-set-font (switch)
  10.   (condition-case err
  11.       (let ((wfont (car command-line-args-left))
  12.         (height (car (read-from-string (car (cdr command-line-args-left))))))
  13.     (setq command-line-args-left (cdr (cdr command-line-args-left)))
  14.     (amiga-set-font wfont height))
  15.     (error (message "Failed to load font"))))
  16.  
  17. (defun amiga-handle-set-foreground (switch)
  18.   (condition-case err
  19.       (let ((pen (car (read-from-string (car command-line-args-left)))))
  20.     (setq command-line-args-left (cdr command-line-args-left))
  21.     (amiga-set-foreground-color pen))
  22.     (error (message "Failed to set foreground colour"))))
  23.  
  24. (defun amiga-handle-set-background (switch)
  25.   (condition-case err
  26.       (let ((pen (car (read-from-string (car command-line-args-left)))))
  27.     (setq command-line-args-left (cdr command-line-args-left))
  28.     (amiga-set-background-color pen))
  29.     (error (message "Failed to set background colour"))))
  30.  
  31. (defun amiga-handle-set-screen (switch)
  32.   (condition-case err
  33.       (let ((name (car command-line-args-left)))
  34.     (setq command-line-args-left (cdr command-line-args-left))
  35.     (amiga-set-geometry nil nil nil nil name))
  36.     (error (message "Couldn't open on public screen"))))
  37.  
  38. (defun amiga-handle-set-geometry (switch)
  39.   (condition-case err
  40.       (let ((x (car (read-from-string (car command-line-args-left))))
  41.         (y (car (read-from-string (car (cdr command-line-args-left)))))
  42.         (w (car (read-from-string (car (cdr (cdr command-line-args-left))))))
  43.         (h (car (read-from-string (car (cdr (cdr (cdr command-line-args-left)))))))
  44. )
  45.     (setq command-line-args-left (cdr (cdr (cdr (cdr command-line-args-left)))))
  46.     (amiga-set-geometry x y w h nil))
  47.     (error (message "Couldn't set window size"))))
  48.